Attribute VB_Name = "ModSubMain"
Option Explicit

Sub Main()
    MsgBox "Sub Main"
    FrmMain.Show
End Sub
